10 REM NEW RERUN C64 AUTOMENU
20 REM LOU WALLACE
40 POKE53280,0:POKE53281,0:PRINTCHR$(142)
50 DR=PEEK(186):V=54273
60 CH$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
70 DR$=RIGHT$(STR$(DR),LEN(STR$(DR))-1)
80 DIM N$(255),D$(255):CX=54272:PRINT "[147]"
90 READ F
100 FOR I=1 TO F:READ N$(I),D$(I)
110 IF LEN(N$(I))>16 THEN N$(I)=LEFT$(N$(I),15)+"*"
120 NEXT
130 GOSUB 400
140 REM - PRINT FIRST COLUMN OF NAMES -
150 D$=""
160 FOR I=1 TO F/2
170 PRINT D$;
180 PRINT""MID$(CH$,I,1)" "N$(I)
190 GOSUB 590:D$=D$+""
200 NEXT
210 REM -- THEN 2ND COLUMN OF NAMES ---
220 D$=""
230 FOR I=(F/2+1) TO F
240 PRINT D$;
250 PRINTSPC(19)""MID$(CH$,I,1)" "N$(I)
260 GOSUB 590:D$=D$+""
270 NEXT
280 GETM$:IFM$=""THEN 280
290 IFM$<"A"ORM$>CHR$(64+F)THEN280
300 P=ASC(M$)-64:PRINT"[147]"
310 IF D$(P)<>"RUN" THEN 340
320 IFLEN(N$(P))>12THENN$(P)=LEFT$(N$(P),12)+"*"
330 PRINT"LOAD"CHR$(34)N$(P)CHR$(34)","DR$"[145][145][145]":GOTO360
340 IFLEN(N$(P))>15THENN$(P)=LEFT$(N$(P),16)+"*"
350 PRINT"LOAD"CHR$(34)N$(P)CHR$(34)","DR$",1[145][145][145]"
360 A$=D$(P)
370 A$=A$+CHR$(13)
380 POKE631,13:FORB=1TOLEN(A$):POKE631+B,ASC(MID$(A$,B,1)):NEXT:POKE198,10
390 NEW
400 POKE 53280,0:POKE 53281,0
410 OV=PEEK(53265)
420 POKE 53265,PEEK(53265)AND 247
430 POKE 53265,(PEEK(53265)AND248)+7
440 PR$="[209][165]                                    [167][209]"
450 TP$="[209][165][213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201][167][209]"
460 MD$="[209][165][194]                                  [194][167][209]"
470 BT$="[209][165][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][167][209]"
480 HD$=" SEPTEMBER/OCTOBER 1991 RERUN
490 [153]"LOAD";
500 [153] TP$;:[141] 590
510 [129] I[178]1 [164] 2:[153] MD$;:[141] 590:[130]
520 [153]"ON";HD$;:[141] 590
530 [153]:[153]"ON";
540 [129] I[178]1 [164] 1:[153] MD$;:[141] 590:[130]
550 [153] BT$;:[141] 590
560 [129] I[178]1 [164] 19:[153] PR$;:[141] 590:[130]
570 [151] 53265,27
580 [142]
590 [143] SOUND ROUTINE HERE
600 [151] V[170]23,15:[151] V[170]4,9:[151] V[170]5,0:[151] V,1:[151] V[170]3,32:[151] V[170]3,33
610 [142]
1000 [143] FILE LIST
1010 [143] FIRST ENTRY IS THE NUMBER OF PROGRAMS ON THIS DISK
1020 [143] FOLLOWED BY EACH FILENAME
1030 [143] SECOND DATA ITEM IS RUN OR SYSXXXXX
1040 [143] RUN IF FILE IS BASIC AND SYS XXXXX IF ML
1050 [131] 8
1055 [131] MULTI-COPY,RUN
1060 [131] ROLLERDASH,RUN
1070 [131] FRACTION ACTION,RUN
1080 [131] KEYPAD IN 64,RUN
1090 [131] SCRAMBLE,RUN
1100 [131] MENU RUNNER,RUN
1110 [131] SOURCEMASTER,RUN
1120 [131] "CMDCMDCMDCMD    "
1130 [131] "CMDCMDCMDCMD    "
1140 [131] "CMDCMDCMDCMD  "